home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol7n3.arc / RUN.BAS < prev    next >
BASIC Source File  |  1988-01-08  |  10KB  |  153 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE run.COM
  2. 110 OPEN "run.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  132 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 101003 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,    66,     1,    82,    85,    78,    32,    49,   626
  22. 300 DATA     46,    48,    32,    40,    99,    41,    32,    49,   387
  23. 310 DATA     57,    56,    55,    32,    90,   105,   102,   102,   599
  24. 320 DATA     32,    67,   111,   109,   109,   117,   110,   105,   760
  25. 330 DATA     99,    97,   116,   105,   111,   110,   115,    32,   785
  26. 340 DATA     67,   111,    46,    13,    10,    80,    67,    32,   426
  27. 350 DATA     77,    97,   103,    97,   122,   105,   110,   101,   812
  28. 360 DATA     32,   254,    32,    77,   105,    99,   104,    97,   800
  29. 370 DATA    101,   108,    32,    74,    46,    32,    77,   101,   571
  30. 380 DATA    102,   102,   111,   114,   100,    13,    10,    36,   588
  31. 390 DATA     26,     0,   255,     0,     0,     0,     0,     0,   281
  32. 400 DATA      0,     0,     0,     0,     0,    13,    10,    83,   106
  33. 410 DATA    121,   110,   116,    97,   120,    58,    32,    82,   736
  34. 420 DATA     85,    78,    32,    91,    47,    67,   124,    47,   571
  35. 430 DATA     83,    93,    32,    91,   100,    58,    93,    91,   641
  36. 440 DATA    112,    97,   116,   104,    93,   102,   105,   108,   837
  37. 450 DATA    101,   110,    97,   109,   101,    32,    91,    97,   738
  38. 460 DATA    114,   103,   115,    93,    13,    10,    47,    67,   562
  39. 470 DATA     32,    61,    32,    67,   104,    97,   110,   103,   606
  40. 480 DATA    101,    32,   116,   111,    32,   116,   104,   101,   713
  41. 490 DATA     32,   100,   105,   114,   101,    99,   116,   111,   778
  42. 500 DATA    114,   121,    32,    97,   110,   100,    32,   114,   720
  43. 510 DATA    117,   110,    13,    10,    47,    83,    32,    61,   473
  44. 520 DATA     32,    83,   116,    97,   121,    32,   105,   110,   696
  45. 530 DATA     32,    99,   117,   114,   114,   101,   110,   116,   803
  46. 540 DATA     32,   100,   105,   114,   101,    99,   116,   111,   778
  47. 550 DATA    114,   121,    32,    97,   110,   100,    32,   114,   720
  48. 560 DATA    117,   110,    13,    10,    68,   101,   102,    97,   618
  49. 570 DATA    117,   108,   116,    32,   105,   115,    32,    47,   672
  50. 580 DATA     83,    13,    10,    36,    13,    10,    67,    97,   329
  51. 590 DATA    110,    39,   116,    32,   102,   105,   110,   100,   714
  52. 600 DATA     32,    36,    13,    10,    83,   101,    97,   114,   486
  53. 610 DATA     99,   104,   105,   110,   103,    32,   102,   111,   766
  54. 620 DATA    114,    32,    36,     9,    13,    32,    47,    60,   343
  55. 630 DATA     62,    46,    69,    88,    69,     0,    67,    79,   480
  56. 640 DATA     77,     0,    66,    65,    84,     0,    92,     0,   384
  57. 650 DATA     42,    46,    42,     0,    46,    46,     0,    32,   254
  58. 660 DATA     47,    67,    32,    67,    79,    77,    83,    80,   532
  59. 670 DATA     69,    67,    61,     0,     0,     0,     0,     0,   197
  60. 680 DATA      0,    29,     5,     0,     0,    29,     6,     0,    69
  61. 690 DATA      0,    45,     6,     0,     0,   180,     9,   186,   426
  62. 700 DATA      3,     1,   205,    33,   252,   232,    50,     2,   778
  63. 710 DATA    162,    81,     1,   190,    61,     6,   232,    57,   790
  64. 720 DATA      2,   186,    92,     7,   180,    26,   205,    33,   731
  65. 730 DATA    188,   135,     8,   139,   220,   131,   195,    15,  1031
  66. 740 DATA    177,     4,   211,   235,   180,    74,   205,    33,  1119
  67. 750 DATA    190,   128,     0,   172,    60,     0,   116,    36,   702
  68. 760 DATA    172,    60,    47,   117,    27,   172,    60,    13,   668
  69. 770 DATA    116,    26,    36,    95,    60,    67,   117,     5,   522
  70. 780 DATA    198,     6,    91,     1,     1,    60,    83,   117,   557
  71. 790 DATA    231,   198,     6,    91,     1,     0,   235,   224,   986
  72. 800 DATA     60,    13,   117,     3,   233,   177,     0,    60,   663
  73. 810 DATA     32,   118,   213,    78,    86,   137,    54,    83,   801
  74. 820 DATA      1,   172,    60,    58,   117,    18,   138,    84,   648
  75. 830 DATA    254,   128,   226,    95,   128,   234,    65,   232,  1362
  76. 840 DATA    204,     1,   137,    54,    83,     1,   235,   233,   948
  77. 850 DATA     60,    92,   117,     8,   137,    54,    89,     1,   558
  78. 860 DATA    137,    54,    83,     1,   191,    11,     2,   185,   664
  79. 870 DATA      6,     0,   242,   174,   117,   211,    78,   137,   965
  80. 880 DATA     54,    87,     1,   191,    29,     6,   184,     1,   553
  81. 890 DATA     41,   205,    33,   191,    45,     6,   184,     1,   706
  82. 900 DATA     41,   205,    33,   232,   148,     1,   162,    82,   904
  83. 910 DATA      1,   190,   126,     6,   232,   155,     1,   139,   850
  84. 920 DATA     54,    83,     1,   191,   255,     6,   172,    87,   849
  85. 930 DATA    191,    11,     2,   185,     7,     0,   242,   174,   812
  86. 940 DATA     95,   116,     3,   170,   235,   240,   176,    46,  1081
  87. 950 DATA    170,   137,    62,    85,     1,    90,   139,    54,   738
  88. 960 DATA     89,     1,   131,   254,     0,   116,    30,   128,   749
  89. 970 DATA    124,   254,    58,   116,     7,   128,   124,   254,  1065
  90. 980 DATA     32,   118,     1,    78,   255,    52,   198,     4,   738
  91. 990 DATA      0,   232,   104,     1,   143,     4,   232,    44,   760
  92. 1000 DATA     0,   115,     7,   235,    10,   232,   105,     1,   705
  93. 1010 DATA   114,     5,   232,    80,     0,   235,    19,   186,   871
  94. 1020 DATA   236,     1,   232,    83,     1,   232,    27,     1,   813
  95. 1030 DATA   186,    93,     1,   232,    74,     1,   176,     1,   764
  96. 1040 DATA   235,     2,    50,   192,    80,   232,   240,     0,  1031
  97. 1050 DATA    88,   180,    76,   205,    33,   186,   255,     6,  1029
  98. 1060 DATA   139,    30,    85,     1,   190,    22,     2,   232,   701
  99. 1070 DATA    24,     0,   115,    21,   190,    18,     2,   232,   602
  100. 1080 DATA    16,     0,   115,    13,   190,    26,     2,   232,   594
  101. 1090 DATA     8,     0,   114,     5,   198,     6,    92,     1,   424
  102. 1100 DATA     1,   195,   139,   251,   165,   165,   185,     7,  1108
  103. 1110 DATA     0,   232,   246,     0,   195,    30,     6,   250,   959
  104. 1120 DATA   140,    22,    51,     2,   137,    38,    53,     2,   445
  105. 1130 DATA   251,   140,    30,    59,     2,   140,    30,    63,   715
  106. 1140 DATA     2,   140,    30,    67,     2,   128,    62,    92,   523
  107. 1150 DATA     1,     1,   117,    39,   190,    39,     2,   191,   580
  108. 1160 DATA    30,     5,   165,   165,   232,    66,     0,    79,   742
  109. 1170 DATA   232,   112,     0,   161,    44,     0,   142,   216,   907
  110. 1180 DATA    51,   192,   139,   240,    64,   191,    43,     2,   922
  111. 1190 DATA   185,     4,     0,   243,   167,   117,   243,   139,  1098
  112. 1200 DATA   214,   235,    15,   191,    12,     7,   232,    32,   938
  113. 1210 DATA     0,   191,    30,     5,   232,    76,     0,   186,   720
  114. 1220 DATA    12,     7,   187,    55,     2,   184,     0,    75,   522
  115. 1230 DATA   205,    33,   250,    46,   139,    38,    53,     2,   766
  116. 1240 DATA    46,   142,    22,    51,     2,   251,     7,    31,   552
  117. 1250 DATA   195,   128,    62,    91,     1,     1,   116,    33,   627
  118. 1260 DATA   160,    82,     1,     4,    65,   170,   176,    58,   716
  119. 1270 DATA   170,   139,   247,   232,   124,     0,   232,    55,  1199
  120. 1280 DATA     0,   139,   254,   128,    61,     0,   116,     9,   707
  121. 1290 DATA    71,   128,    61,     0,   117,   250,   176,    92,   895
  122. 1300 DATA   170,   190,   255,     6,   172,   170,    60,     0,  1023
  123. 1310 DATA   117,   250,   195,   139,    54,    87,     1,   172,  1015
  124. 1320 DATA   170,    60,    13,   117,   250,    50,   201,   190,  1051
  125. 1330 DATA    30,     5,   172,    60,    13,   116,     4,   254,   654
  126. 1340 DATA   193,   235,   247,   136,    14,    29,     5,   195,  1054
  127. 1350 DATA   128,    62,    82,     1,   255,   116,    19,   186,   849
  128. 1360 DATA   126,     6,   232,    63,     0,   138,    22,    81,   668
  129. 1370 DATA     1,   232,    34,     0,   186,    61,     6,   232,   752
  130. 1380 DATA    50,     0,   195,   190,   255,     6,   172,    60,   928
  131. 1390 DATA    46,   116,     8,   138,   208,   180,     2,   205,   903
  132. 1400 DATA    33,   235,   243,   186,   233,     1,   232,    31,  1194
  133. 1410 DATA     0,   195,   180,    25,   235,    32,   180,    14,   861
  134. 1420 DATA   235,    28,   180,    78,   235,    24,   180,    79,  1039
  135. 1430 DATA   235,    20,   198,     4,    92,    70,    50,   210,   879
  136. 1440 DATA   180,    71,   235,    10,   180,    59,   235,     6,   976
  137. 1450 DATA   180,     9,   235,     2,   180,    11,   205,    33,   855
  138. 1460 DATA   195,   186,   250,     1,   232,   241,   255,   232,  1592
  139. 1470 DATA   185,   255,   186,    30,     2,   232,   228,   255,  1373
  140. 1480 DATA   191,   191,     6,   139,   239,   184,     1,     1,   952
  141. 1490 DATA   185,    32,     0,   243,   171,   232,   220,   255,  1338
  142. 1500 DATA    60,     0,   117,    12,   232,   150,   254,   114,   939
  143. 1510 DATA    21,   195,   129,   253,   191,     6,   117,     2,   914
  144. 1520 DATA   249,   195,   186,    36,     2,   232,   188,   255,  1343
  145. 1530 DATA    62,   198,    70,     0,     1,    77,    50,   219,   677
  146. 1540 DATA   186,    32,     2,   185,    16,     0,   232,   153,   806
  147. 1550 DATA   255,   114,   223,   128,    62,   113,     7,    16,   918
  148. 1560 DATA   117,    28,   128,    62,   122,     7,    46,   116,   626
  149. 1570 DATA    21,   254,   195,    62,    58,    94,     0,   117,   801
  150. 1580 DATA    13,    62,   254,    70,     0,   186,   122,     7,   714
  151. 1590 DATA   232,   137,   255,    69,   235,   175,   232,   117,  1452
  152. 1600 DATA   255,   114,   183,   235,   214,     0,     0,     0,  1001
  153.